home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / cvt < prev    next >
Encoding:
Text File  |  1995-08-21  |  1.1 KB  |  51 lines
  1. ;
  2. ;       CVT : AMMS-Script zum Konvertieren von AMMS-Befehlstexten
  3. ;
  4. ;       $VER: 1.02 (21-Aug-1995)
  5. ;
  6. ;       Mit diesem Script wird der Text des angegegebenen Befehls in
  7. ;       der aktuellen Sprache aus MBTEXT:<SPRACHE>/COM nach
  8. ;       MBCOM:<SPRACHE> konvertiert.
  9. ;
  10. ;
  11. ;       Das Script sollte so eingebunden werden, dass es ueber Level und
  12. ;       Flags auf die folgende Befehle zugreifen kann :
  13. ;
  14. ;       CONVERT COMTEXT
  15. ;       ECHO
  16. ;       EOD
  17. ;       IF
  18. ;       ON ERROR
  19. ;       PARSE
  20. ;    CHECK FILE
  21. ;
  22.  
  23. ; Parameter auswerten
  24.  
  25. _parse "CVT" p0 N/Befehlsname p1 N p2   ; Befehlsname als Parameter einlesen
  26. _if p1 == "" then _goto END             ; Keinen angegeben -> Ende
  27. _if p2 == "" then _goto CONVERT         ; Zwei Befehlswoerter ?
  28. p1="'p1'_'p2'"                          ; Ja, zusammenfuegen
  29.  
  30. ; Befehlstext konvertieren
  31.  
  32. CONVERT:
  33. _echo/nolf "'{alanguage}' : 'p1' ..."
  34. _on error END
  35.  
  36. _check file "mbcom:'p1'" NOCOM
  37.  
  38. _convert comtext "mbtext:'{alanguage}'/com/'p1'" "mbcom:'{alanguage}'/'p1'"
  39. _goto OK
  40.  
  41. NOCOM:
  42. _convert comtext "mbtext:'{alanguage}'/com/'p1'" "mbres:'{alanguage}'/'p1'"
  43.  
  44. OK:
  45. _echo " OK"
  46.  
  47. ; Ende
  48.  
  49. END:
  50. _eod                                    ; Ende
  51.